home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 43.zip / ANC 15.adf / REXX / Labels.txed < prev    next >
Text File  |  1987-01-01  |  739b  |  33 lines
  1. /* This TxEd Plus/AREXX macro will print mailing labels,
  2.     modify to suit your needs.  REQUIRES COMPLETE AREXX.
  3.  */
  4. /* Open(prt,"con:160/50/320/100/Named/c")
  5.  */
  6.  
  7. Open(prt,"Prt:")
  8.  
  9. do i=501 to 550
  10.  
  11.     k=i+367
  12.     z=i+417
  13.  
  14.     writeln(prt,"    TxEd Plus V2.0               TxEd Plus V2.0")
  15.     writeln(prt,"    (c) 1987, 1988          Copyright (c) 1987,'88")
  16.     writech(prt,"       SN #")
  17.     writech(prt,k)
  18.     writeln(prt,               "                  by Microsmiths, Inc")
  19.     writeln(prt,"                                All Rights Reserved")
  20.  
  21.     writech(prt,"                                   SN #")
  22.         writeln(prt,z)
  23.  
  24.     writeln(prt,"")
  25.     writeln(prt,"")
  26.     writeln(prt,"")
  27.     writeln(prt,"")
  28.     writeln(prt,"")
  29.     writeln(prt,"")
  30.     writeln(prt,"")
  31.     say i
  32. end
  33.